    Sub New(ByVal s As String, i As Integer)